home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / BMTXT < prev    next >
Text File  |  1997-04-05  |  524b  |  9 lines
  1. BMTXT: procedure expose bmt.;b=ARG(1)*2;dt=datatype(ARG(2),"N");getuser 2401064
  2.   t=import(x2c(d2x(result,8)),220);parse var t 13 p +4 =b+21 s +2 =b+121 l +2
  3.   if ARG()=2&ARG(2)<=c2d(l)&dt then do;m=import(import(offset(p,4*(c2d(s)+ARG(2))),4),512)
  4.     parse var m t"00"x;return translate(t,"\{","");end;c=0
  5.   do a=c2d(s) to (c2d(s)+c2d(l)-1);m=import(import(offset(p,4*a),4),512)
  6.     parse var m t"00"x;bmt.c=translate(t,"\{","")
  7.     if ~dt & index(upper(bmt.c),upper(ARG(2)))~=0 then return 1
  8.     c=c+1;end;return c-1
  9.